clc;
fNegativo = zeros(1,8);
fidx = 1;
for k = 3:10
    n=800;
    
    B=inicializar(n);
    chaves = randstring(10,1,1e3);
    
    for i = 1:length(chaves)
        B=inserir(B, chaves{i}, k);
    end
    
    resp = zeros(1, length(chaves));
    for i = 1:length(chaves)
        resp(i) = verificar(B, chaves{i}, k);
    end
    fNegativo(fidx) = length(chaves) - sum(resp);
    fidx = fidx + 1;
end
resp

clear("fidx", "n", "k", "resp", "i");